home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / SourceCode / MiscKit1.7.1 / MiscKit / Palettes / MiscTableScroll / MiscTableFocusPS.psw < prev    next >
Text File  |  1996-02-11  |  2KB  |  42 lines
  1. //=============================================================================
  2. //
  3. //        Copyright (C) 1995 by Paul S. McCarthy and Eric Sunshine.
  4. //                Written by Paul S. McCarthy and Eric Sunshine.
  5. //                            All Rights Reserved.
  6. //
  7. //        This notice may not be removed from this source code.
  8. //
  9. //        This object is included in the MiscKit by permission from the authors
  10. //        and its use is governed by the MiscKit license, found in the file
  11. //        "License.rtf" in the MiscKit distribution.    Please refer to that file
  12. //        for a list of all applicable permissions and restrictions.
  13. //        
  14. //=============================================================================
  15. //-----------------------------------------------------------------------------
  16. // MiscTableFocusPS.psw
  17. //
  18. //        Uses instance drawing to draw (and erase) a dashed box.
  19. //
  20. //-----------------------------------------------------------------------------
  21.  
  22. //-----------------------------------------------------------------------------
  23. // MISC_TF_drawBox
  24. //-----------------------------------------------------------------------------
  25. defineps MISC_TF_drawBox( float x, y, w, h, gray )
  26.     gsave
  27.     true setinstance
  28.     gray setgray
  29.     [3] 0 setdash
  30.     x y w 1 sub h 1 sub rectstroke
  31.     false setinstance
  32.     grestore
  33. endps
  34.  
  35.  
  36. //-----------------------------------------------------------------------------
  37. //    MISC_TF_eraseBox
  38. //-----------------------------------------------------------------------------
  39. defineps MISC_TF_eraseBox( float x, y, w, h )
  40.     x y w h hideinstance
  41. endps
  42.